Sub 차트생성()

    ActiveSheet.ChartObjects("매크로 차트").Delete
    
    ActiveSheet.Shapes.AddChart2( _
                Style:=201, _
                XlChartType:=xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("B5").CurrentRegion
    
    With ActiveChart.Parent
    
        .Name = "매크로 차트"
    
        .Top = Range("G5").Top
        .Left = Range("G5").Left
        .Height = Range("G5").MergeArea.Height
        .Width = Range("G5").MergeArea.Width
        
    End With
    
End Sub